#!/usr/bin/perl -w
package clreqd_modules;

use strict;

sub does_dir_exist {
my %ARGS=@_;
my $d=$ARGS{DIR};

	if(! -e $d) {
		return "ERROR Directory '$d' does not exist.";
	}
	if(! -d $d) {
		return "ERROR File system object '$d' exists, but is not a directory.";
	}
	my @s=stat(_);
	my $st=sprintf("%d:%d:%04o",$s[4],$s[5],$s[2]&07777);
	return "OK $st";
}

1;
